Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
156to160
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
156to160
156to160
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

VBA Module in geschützten Projekt löschen

VBA Module in geschützten Projekt löschen
12.09.2002 11:57:55
cjp
Hallo,

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




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

Betreff
Datum
Anwender
Anzeige
Re: VBA Module in geschützten Projekt löschen
12.09.2002 12:21:59
Axel
Hallo,

wenn das Passwort bekannt ist, kann das VBA-Projekt über folgende Routine freigegeben/geschützt werden.

Gruß
Axel


geht leider nicht...
12.09.2002 13:00:43
cjp
Kann ich eine Verweis auf ein bestimmtes Projekt setzten, Wenn der VBA Editor auf visible gesetzt wird werden ja alle Projekte angezeigt...

Danke
Christian

Re: geht leider nicht...
12.09.2002 14:09:45
Axel
Hallo,

ich verstehe Dein Problem nicht ganz.

Im Projekt-Explorer sind zwar alle VBA-Projekte sichtbar, die Änderung der VBA-Projekteigenschaften über das von mir gepostete Makro wird aber nur für das aktuelle Projekt durchgeführt.

Es ist immer nur ein Projekt aktiv und zwar genau jenes, das in Excel als aktive Mappe selektiert ist.

Wenn Du also im Code das Passwort über Sendkeys entfernen möchtest, ist die betreffende Mappe vorher zu aktivieren.

In Deinem Code wird in der zweiten Prozedur eine neues Workbook angelegt. In dieser neuen Mappe ist das VBA-Projekt definitiv nicht geschützt, der Code widerspricht Deiner Problembeschreibung im ersten Absatz des ersten Posting.


Gruß
Axel

Anzeige

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige