Kopieren nach Eingabe von PW

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Bianca Sylvia,
in Excel gibt es sehr viele Möglichkeiten zu kopieren. Alle ~ 50 Buttons plus die Shortcuts mit einem eigenen Makro zu belegen ist ein ziemlicher Aufwand. (Wie Leo schon schrieb: https://www.herber.de/forum/messages/664134.html ) Es wäre einfacher, das Kennwort beim öffnen der Mappe einzugeben. Wenn es falsch ist, wird kopieren grundsätzlich unterbunden. Aber, was hindert einen User daran, die Mappe mit deaktivierten Makros zu öffnen? Das könntest du verhindern, indem du die Mappe mit einem Kennwort schützt, und z.B. mit einem VB-Programm öffnest. Noch ein aber, wieso sollte ich nicht einfach eine Bildschirmhardcopy von der Mappe machen, die ich mir OCR in einen Text umwandle. Was sollte mich am abschreiben hindern?
Was ist denn eigentlich der Hintergrund für dein Vorhaben?
Gruß
Nepumuk
Excel & VBA Beispiele

Hi Bianca,
'Quellcode von Nepumuk (sei mir nicht böse ;-)))
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
Sub sperren()
Application.OnKey "^{c}", "" 'Strg+C aus
Call procControlEnableDisable(748, False) 'Speichern unter aus
Call procControlEnableDisable(19, False) ' kopieren aus
End Sub
Sub freigeben()
Application.OnKey "^{c}"
Call procControlEnableDisable(748, True)
Call procControlEnableDisable(19, True)
End Sub
Obenstehende Codes, in ein Standardmodul kopieren.
Im Modul "DieseArbeitsmappe" folgendes eintragen


Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call freigeben
End Sub


Private Sub Workbook_Open()
frage = InputBox("Bitte geben sie das Passwort zum Kopieren ein")
If frage <> "Passwort" Then
MsgBox "Sie haben keine Berechtigung zum Kopieren"
Call sperren
Else
Call freigeben
End If
End Sub

Somit wird beim Öffnen der Mappe das Passwort abgefragt (Lautet dein Passwort z.B. Hexe, sähe das dann so aus If frage "Hexe" Then
Wird das Passwort nicht angegeben, werden Strg+C sowie Speichern unter... und auch Kopieren ausgeschaltet.
Diese Funktionen werden wieder aktiv
1. bei richtiger PW-Eingabe
2. Automatisch beim Schliessen der Arbeitsmappe
So der Plan.-
Hoffe Du kommst damit klar
Gruß
Harald

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Kopieren nach Eingabe von PW

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread