Copy&Paste bei Leisten = False
26.04.2006 13:16:31
Frederic
ich habe folgenden Code in "Diese Arbeitsmappe":
Option Explicit
' 08.12.05 Spalten- Zeilenköpfe ausblenden
Private Sub Workbook_Activate()
Leisten True
End Sub
Private Sub Workbook_Deactivate()
Leisten True
End Sub
Private Sub Workbook_Open()
Stand = Application.DisplayFormulaBar
ActiveWindow.DisplayHeadings = False ' Spalten- Zeilenköpfe ausblenden
' der Urzustand für diese wird beim schliessen nicht wieder hergestellt
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
ActiveWindow.DisplayHeadings = False ' Spalten- Zeilenköpfe ausblenden
End Sub
Wenn ich den aktiv habe, funktioniert meine Paste&Copy-Funktion nicht.
Kann ich das nicht so steuern, dass er nach einmaliger Eingabe von einem Passwort alles aktiviert und dieses dann nach einem Mappenwechsel nicht wieder deaktiviert?
Möchte diesen Code gerne nutzen:
Sub Administration()
Dim PW As String
PW = Application.InputBox("Bitte geben Sie das Passwort ein")
If PW "MeinPasswort" Then
Exit Sub
Else
Leisten True
Application.DisplayFormulaBar = True
ActiveWindow.DisplayHeadings = True
End If
End Sub
Danach sollte alles aktiviert BLEIBEN!!!
Danke für Eure Hilfe.
Gruß.
Frederic
Anzeige