AW: Kopierschutz
13.12.2005 11:29:51
Harald
Hi Hans,
mein Vorschlag.
In jedem Blatt (per Workbook_open, oder worksheet_activate - Ereignis)
ScrollArea = "a1"
setzen. So kann man nur Zelle a1 markieren
Speichern unter sowie Blatt verschieben/kopieren deaktivieren
Private Sub procControlEnableDisable(intId As Integer, bolStatus As Boolean)
Dim myCommandBar As CommandBar, myCommandBarControl As CommandBarControl
For Each myCommandBar In Application.CommandBars
Set myCommandBarControl = myCommandBar.FindControl(ID:=intId, Recursive:=True)
If Not myCommandBarControl Is Nothing Then myCommandBarControl.Enabled = bolStatus
Next
End Sub
Public Sub sperren() 'deaktiviert die Schaltflächen
Call procControlEnableDisable(848, False)
Call procControlEnableDisable(748, False)
End Sub
Public Sub freigeben() 'aktiviert die Schaltflächen
Call procControlEnableDisable(848, True)
Call procControlEnableDisable(748, True)
End Sub
Ggf. noch dein vba-projekt schützen
Das schützt vor ungewolltem Kopieren...nicht vor gewolltem Kopieren ;-))
Gruss Harald