寫完代碼後，保存時的執行效果如下:
——跳轉到有填充顏色的單元格，提示不允許保存，然後返回。
代碼位置如下所示，請註意位置的重要性:
代碼文本是:
選項顯式
私有子工作簿_BeforeSave(ByVal SaveAsUI為布爾值，Cancel為布爾值)
Dim st作為工作表，rng作為範圍
對於表中的每個st
如果st.Name = "Dian1 "或st.name = "Dian2 "或st.name = "Dian3 3 "則。
對於st.UsedRange.Cells中的每個rng
如果rng。內飾。顏色& lt& gt16777215然後
申請。轉到rng
MsgBox "該單元格有填充顏色，無法保存"
取消=真
出口接頭
如果…就會結束
下壹個rng
如果…就會結束
下壹條街
末端接頭