Vba schützen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Vba schützen von: Thomas
Geschrieben am: 14.04.2005 06:36:12

Hallo nochmal,

ich hab da nochmal ein Problem mit dem "Sperren" meines VBA - Bereiches.

Ich möchte:
Das der Benutzer später nicht den Code meiner Userforms angucken kann.

Ich habe deswegen:
Mein Projekt mit einem Pw geschützt.

Das Problem dabei:
Wenn mein "Programm" durchgelaufen ist und der Benutzer die Userforms abgearbeitet hat, werden die Userforms und einige Sheets gelöscht. (Vorher wurde natürlich unter neuem Namen gespeichert :-) )
Wenn mein Projekt Pw-Geschützt ist, meckert das Programm und bricht bei diesem Schritt ab.

Meine Frage:

Wie kann ich mein Code vor "besichtigungen" schützen und trotzdem die Userforms im vba löschen?
Kann ich den Pw-Schutz im Code an und ausstellen?
Wie kann ich es anders machen?


Vielen Dank schonmal, Thomas

Bild


Betrifft: .....oder TOOLEX? von: Erich M.
Geschrieben am: 14.04.2005 07:36:47

Hallo Thomas,

habe das mal aus dem Forum bekommen:


Sub VBA_Kennwort1()
Dim FreiSchaltCode As String
Application.ScreenUpdating = False
FreiSchaltCode = "Passwort"
SendKeys ("%{F11}"), True
If Application.VBE.ActiveVBProject.Protection Then
Select Case Val(Application.Version)
Case 5 To 8
SendKeys ("%xs" & FreiSchaltCode & "{ENTER}{ENTER}"), True
Case Else
SendKeys ("%xi" & FreiSchaltCode & "{ENTER}{ENTER}"), True
SendKeys ("%Dh"), True
End Select
End If
Application.ScreenUpdating = True
End Sub



Code eingefügt mit: Excel Code Jeanie

..........oder je nach dem was Du sonst noch erreichen willst:
http://www.toolex.de

mfg
Erich
EXCEL-Shareware und Freeware: http://www.toolex.de
EXCEL und Lottogewinne machen glücklich: http://48678.rapidforum.com


Bild


Betrifft: AW: .....oder TOOLEX? von: Thomas
Geschrieben am: 14.04.2005 09:23:56

Der Code sieht schon gut aus.
Allerdings funktioniert er bei mir nicht. Wenn ich das richtig sehe, soll damit doch der PW-Schutz deaktiviert werden !? Also füge ich den Code vor das Löschen der Userforms !?

Wenn das klappen würde, wäre mir damit schon geholfen!


Bild


Betrifft: Editorhilfe: .protect und .unprotect -- owT von: Luc :-?
Geschrieben am: 14.04.2005 08:43:37




 Bild

Beiträge aus den Excel-Beispielen zum Thema "Zaehlen am Ende eines Filters"