|
Hallo
ich denke das ich jetzt erst dein Anliegen richtig erkannt habe. Der neue Code setzt zuerst alle Tabellen ausser dem -AktivenSheet- auf gesperrt. Danach wird dein altes Makro wie gehabt ausgeführt. Würde mich freuen wenn ich damit ins schwarze getroffen habe.
mfg Nobody
Private Sub CommandButton1_Click()
Dim j As Integer
'** Zuerst alle Tabellen ausser ActiveSheet sperren!
For i = 1 To Worksheets.Count
With Worksheets(i)
If .Name <> ActiveSheet.Name Then
.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, _
AllowSorting:=True, AllowFiltering:=True, Password:=("test")
.CommandButton2.Visible = False
.CommandButton3.Visible = False
.CommandButton4.Visible = False
End If
End With
Next i
On Error GoTo Fehler
If ActiveSheet.ProtectContents = False Then GoTo Fehler
ActiveSheet.Unprotect
CommandButton2.Visible = True
CommandButton3.Visible = True
CommandButton4.Visible = True
Exit Sub
Fehler:
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowSorting:=True, AllowFiltering:=True, Password:=("test")
CommandButton2.Visible = False
CommandButton3.Visible = False
CommandButton4.Visible = False
On Error GoTo 0
End Sub
|