Optionen sperren VBA
chrissey
hab mir folgenden Code zum Sperren der Optionen aus dem Netz gesucht.
Das Problem ist ich möchte die Optionen nur in einer bestimmten Arbeitsmappe
sperren und nicht für alle Arbeitsmappen. So funktionierts eigentlich gut, aber
wie gesagt nur für alle Arbeitsmappen.
Hat jmd eine Idee wie ich das hinkriegen könnte?
Danke Euch schon mal und Grüße
Chrissey
In das Modul "DieseArbeitsmappe":
Code:
Option Explicit
Private Sub Workbook_Activate()
Call Enable_Disable_Options(False)
End Sub
Private Sub Workbook_Deactivate()
Call Enable_Disable_Options(True)
End Sub
In ein Standardmodul:
Code:
Option Explicit
Public Sub Enable_Disable_Options(blnEnabled As Boolean)
Dim objControls As CommandBarControls
Dim objButton As CommandBarButton
Set objControls = Application.CommandBars.FindControls(ID:=522)
If Not objControls Is Nothing Then
For Each objButton In objControls
objButton.Enabled = blnEnabled
Next
End If
End Sub