小编Sai*_*ala的帖子

我有一个ComboBox有3个项目,如"选择","杰克"和"吉尔".在Private Sub Workbook_Open()下,我保留了以下代码行.

With ThisWorkbook.Sheets("Sheet1").ComboBox1
    Items.Clear
    .AddItem "Select"
    .AddItem "Jack"
    .AddItem "Jill"
End With

当我选择一个项目并关闭excel时.下次如果我打开excel默认的comboBox显示以前选择的项目.但我想将select显示为默认项目.

我有一个工作簿，其中根据要求有几张纸。在这个工作簿中，我使用了宏并锁定了一些特定的单元格和列，我使用了取消保护和保护选项。在我的机器上一切正常，但是当我将它作为 SharedWorkBook 时，它给了我错误，特别是ThisWorkBook.Sheets("PSE").Unprotect和ThisWorkBook.Sheets("PSE").Protect语句。所以我用ThisWorkBook.Sheets("PSE").UnprotectSharing和ThisWorkBook.Sheets("PSE").ProtectSharing代替它们。即使现在我也遇到这些行的错误。

Sub SheetHider()
ThisWorkbook.Sheets("SheetA").UnprotectSharing
Cuser = ThisWorkbook.Sheets("SheetA").Range("A2").Value

并且错误是
运行时错误“438”对象不支持此属性或方法。

我的要求： 1）我必须使用宏，锁定属性，以便我必须使用 Unprotect 和 Protect 语句，当我将其设为 SharedWorkBook 时，这些东西应该可以工作。
一个星期以来，我一直在为此搜索许多网站。至少给我一些替代方案来做到这一点。
任何帮助将不胜感激。谢谢

我正在运行一个宏,Private Sub Workbook_BeforeClose(Cancel As Boolean) 但每当用户点击取消按钮宏不应该运行.

我一直在遵循代码行

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Cancel = True Then
    MsgBox "You clicked on Cancel"
ElseIf Cancel = False Then
    Call SDA
End If

End Sub
但是每当我按下取消按钮时它都没有显示任何MessageBox.Any帮助将非常感激.