AW: erledigt (mT) - doch noch nicht ganz
29.02.2008 12:39:56
Rudi
Hallo,
dann hängen wir das besser an sheetselectionchange
Private Sub Workbook_Deactivate()
'Damit alles wieder funktioniert
With Application.CommandBars("Worksheet Menu Bar")
.FindControl(ID:=19, recursive:=True).Enabled = True 'kopieren
.FindControl(ID:=21, recursive:=True).Enabled = True 'ausschneiden
.FindControl(ID:=22, recursive:=True).Enabled = True 'einfügen
.FindControl(ID:=755, recursive:=True).Enabled = True 'Inhalte einfügen
.FindControl(ID:=30020, recursive:=True).Enabled = True 'ausfüllen
.FindControl(ID:=30021, recursive:=True).Enabled = True 'löschen
End With
With Application.CommandBars("Cell")
.FindControl(ID:=19).Enabled = True 'kopieren
.FindControl(ID:=21).Enabled = True 'ausschneiden
.FindControl(ID:=22).Enabled = True 'einfügen
.FindControl(ID:=755).Enabled = True 'Inhalte einfügen
.FindControl(ID:=3125).Enabled = True 'Inhalte löschen
End With
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Dim blnLocked As Boolean
blnLocked = Not Sh.ProtectContents Or Sh.ProtectContents And Not Target.Locked
With Application.CommandBars("Worksheet Menu Bar")
.FindControl(ID:=19, recursive:=True).Enabled = blnLocked 'kopieren
.FindControl(ID:=21, recursive:=True).Enabled = blnLocked 'ausschneiden
.FindControl(ID:=22, recursive:=True).Enabled = blnLocked 'einfügen
.FindControl(ID:=755, recursive:=True).Enabled = blnLocked 'Inhalte einfügen
.FindControl(ID:=30020, recursive:=True).Enabled = blnLocked 'ausfüllen
.FindControl(ID:=30021, recursive:=True).Enabled = blnLocked 'löschen
End With
With Application.CommandBars("Cell")
.FindControl(ID:=19).Enabled = blnLocked 'kopieren
.FindControl(ID:=21).Enabled = blnLocked 'ausschneiden
.FindControl(ID:=22).Enabled = blnLocked 'einfügen
.FindControl(ID:=755).Enabled = blnLocked 'Inhalte einfügen
.FindControl(ID:=3125).Enabled = blnLocked 'Inhalte löschen
End With
End Sub
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe