ich benötige eure Hilfe unzwar möchte ich , die Buttons in meinen Tabellen alle verschwinden lassen und die Tabellenblätter Passwortschützen wenn die Datei geschlossen wird. Dabei soll es egal sein ob gespeichert oder nicht.
Hier mein Code:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim xSheet As Worksheet
Dim xPsw As String
xPsw = "test"
For Each xSheet In Worksheets
xSheet.Protect xPsw
xSheet("CommandButton1").Visible = False
xSheet("CommandButton2").Visible = False
xSheet("CommandButton3").Visible = False
Next
Die Buttons heißen überall gleich, aber es klappt nicht .
Er zeigt immer folgende Fehlermeldung:
Laufzeitfehler "438". Objekt unterstützt diese Eigenschaft oder Methode nicht