Blattschutz
05.08.2003 09:36:48
Stefan
ich habe in einer tabelle die spalte b ausgeblendet und die tabelle mit einem blattschutz versehen. nun möchte ich einen button drücken, der den blattschutz aufhebt, die spalte b einblendet und den blattschutz wieder aktiviert.
geht das?
bisher habe ich
Sub einblenden()
On Error Resume Next
ActiveSheet.Unprotect Password = "Stefan"
Sheets("Tabelle1").Select
Columns("A:C").Select
Selection.EntireColumn.Hidden = False
Range("A1").Select
On Error Resume Next
ActiveSheet.Protect Password = "Stefan", DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub