Office: VBA-Modul schützen

Carsten · 30. Oktober 2002

Hallihallo...
wie kann man eigentlich ein VBA Modul in einer Excel Date gegen unbefugte Einsicht schützen?
Gruss Carsten

:)

jinx · 1. November 2002

Moin, Carsten,

diese Frage hätte wohl eher ins Excel-Forum gehört (siehe

Stefan Kulpa · 1. November 2002

Wie jinx bereits erwähnte, falsches Forum.
Der Beitrag befindet sich jetzt im Excel-Forum.

Gruß, Stefan

Carsten · 28. Juli 2003

Hallo, ich nochmal...
Ich habe den VBA-Code geschützt.
Jetzt hab ich per Code ein Tabellenblatt kopiert und nu kann ich die Datei nicht mehr speichern.
Folgender Fehler:

Dieses Dateiformat kann nicht gespeichert werden, währen das VBA-Projekt geschützt ist.

Was nu?

PS : in dem kopierten Blatt befindet sich auch code.

jinx · 28. Juli 2003

Moin, Carsten,

könntest Du bitte eine Beispielmappe anhängen oder den verwendeten Code posten?

Carsten · 28. Juli 2003

Also mit dieser Proz wird kopiert:

Code:

'Modul 1
Sub Schaltfläche7_BeiKlick() 'diese Schaltfläche befindet sich in der zu kopierenden Tabelle

Dim Baugruppe As String
Dim a As Integer

On Error GoTo Fehler
Baugruppe = InputBox("Bitte geben Sie einen neuen Namen für die Baugruppe ein.", "Baugruppe anlegen", ActiveSheet.Name)
'Prüfen, ob Baugruppe existiert
For a = 1 To Sheets.Count
If Sheets(a).Name = Baugruppe Then
MsgBox "Diese Baugruppe existiert bereits !" & vbCrLf & "Bitte versuchen Sie es erneut.", vbOKOnly, "Fehler"
Exit Sub
End If
Next a
If Baugruppe = "" Then Exit Sub
ActiveSheet.Copy after:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = Baugruppe

Exit Sub

Fehler:
If Err.Number = 1004 Then
MsgBox "Der Baugruppenname existiert bereits !", vbCritical, "Fehler!"
Else
MsgBox Err.Number & " " & Error
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Und das ist der Code aus der Tabelle:

Code:

'Tabelle 4
Private Sub ComboBox1_Change()
Dim Anmerkung As String
If Dirty = False Then
Sheets(3).Range("B21") = ComboBox1.ListIndex
If ActiveCell.Column = 4 And ActiveCell.Row >= 10 Then

Anmerkung = Sheets(3).Range("A21")
ActiveCell.ClearComments
'For Each Cells In Selection

ActiveCell.AddComment (CStr(Anmerkung))

Select Case Sheets(3).Range("B21")

Case 0 To 4
Selection = Sheets(3).Range("B21")

Case 5 To 17
Selection = Sheets(3).Range("B21") + 2
End Select
End If
End If
Dirty = False
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dirty = True
If ActiveCell.Column = 4 And ActiveCell.Row >= 10 Then
ComboBox1.Top = ActiveCell.Top
ComboBox1.Left = ActiveCell.Left + ActiveCell.Width
ComboBox1.ListIndex = 0
ComboBox1.Visible = True
Else
ComboBox1.Visible = False
End If
Dirty = False
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Woran liegt's wohl ?
Ich habe das Workbook mit "gegen Anzeige schützen" geschützt.

Office: VBA-Modul schützen

VBA-Modul schützen

VBA-Modul schützen

VBA-Modul schützen

VBA-Modul schützen - Similar Threads - VBA Modul schützen

Auslesen einer Abfrage in VBA Modul

VBA Modul lässt sich nicht ausführen

Zentrales Modul zum Befüllen mehrerer Userforms

VBA Formular rechnet nicht

VBA-Modul per Makro anzeigen

Berechnungs Problem im VBA Modul

Code funktioniert im VBA-Modul über "Play", aber nicht über den Button in der Tabelle