PROBLEM:
Module in geschützten VBA Projekten können nicht gelöscht werden
FRAGESTELLUNG:
Mappe1.xls mit alten VBA Modulen, Actives Workbook, Projekt passwortgeschützt
SPC_ADMIN.xls mit neuen VBA Modulen, ebenfalls passwortgeschützt
Der VBA Code wird aus SPC_ADMIN ausgeführt, Mappe1 wird aktiviert, anschliessend die veralteten Module gelöscht, dann die neuen aus SPC_ADMIN nach Mappe1 kopiert.
Kann ich per VBA Module in/nach passwortgeschützten Mappen löschen, wenn ich das entsprechende Passwort in den Code übernehme?
Passwort z.B.: passwort
DELETE/COPY CODE:
Sub DeleteModule(sName As String)
Dim mdl As Object
If sName = "" Then Exit Sub
If ActiveWorkbook.Name = "SPC_ADMIN.xls" Then
MsgBox "Attention! Don't modify sthe administrator file", vbCritical, "Deleting VBA-Modules"
Exit Sub
End If
With ActiveWorkbook.VBProject.VBComponents
On Error Resume Next
Set mdl = .Item(sName)
On Error GoTo 0
If mdl Is Nothing Then
Err.Clear
Beep
MsgBox "CodeModule """ & sName & """ not present!"
Else
.Remove mdl
End If
End With
End Sub
Sub CopyModuleToWkb(sName As String)
Dim vbc As Object
Set vbc = ThisWorkbook.VBProject.VBComponents(sName)
sName = ThisWorkbook.Path & "\" & vbc.Name & ".bas"
Workbooks.Add
vbc.Export sName
ActiveWorkbook.VBProject.VBComponents.Import sName
Kill sName
End Sub
Vielen Dank,
Christian