Explorer Ordneroption Ansicht per VBA einstellen
Schritt-für-Schritt-Anleitung
Um die Explorer-Ordneroptionen per VBA zu ändern und die Ansicht für bekannte Dateitypen zu steuern, folge diesen Schritten:
- Öffne Excel und aktiviere die Entwickleroptionen.
- Erstelle ein neues Modul:
- Gehe zu
Entwicklertools > Visual Basic.
- Klicke im VBA-Editor mit der rechten Maustaste auf
VBAProject (DeineDatei.xlsx) und wähle Einfügen > Modul.
- Füge den folgenden Code in das Modul ein:
Option Explicit
Public Const HKEY_CURRENT_USER = &H80000001
Public Const ERROR_SUCCESS = 0&
Public Const REG_DWORD = 4
Declare Function RegCloseKey Lib "advapi32.dll" (ByVal Hkey As Long) As Long
Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal Hkey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal Hkey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal Hkey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long
Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal Hkey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long
Function SaveDword(ByVal Hkey As Long, ByVal strPath As String, ByVal strValueName As String, ByVal lData As Long)
Dim lResult As Long
Dim keyhand As Long
Dim r As Long
r = RegCreateKey(Hkey, strPath, keyhand)
lResult = RegSetValueEx(keyhand, strValueName, 0&, REG_DWORD, lData, 4)
r = RegCloseKey(keyhand)
End Function
Function GetDword(ByVal Hkey As Long, ByVal strPath As String, ByVal strValueName As String) As Long
Dim lResult As Long
Dim lValueType As Long
Dim lBuf As Long
Dim lDataBufSize As Long
Dim r As Long
Dim keyhand As Long
r = RegOpenKey(Hkey, strPath, keyhand)
lDataBufSize = 4
lResult = RegQueryValueEx(keyhand, strValueName, 0&, lValueType, lBuf, lDataBufSize)
If lResult = ERROR_SUCCESS Then
If lValueType = REG_DWORD Then
GetDword = lBuf
End If
Else
MsgBox "Registry-Eintrag nicht gefunden! Überprüfen Sie die Schreibweise.", 64, "Hinweis"
End If
r = RegCloseKey(keyhand)
End Function
Sub MSG_GetDWord()
Dim lngDword As String
lngDword = GetDword(HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "HideFileExt")
If lngDword = 0 Then
MsgBox "Bekannte Dateierweiterungen werden angezeigt.", 64, "Information"
ElseIf lngDword = 1 Then
MsgBox "Bekannte Dateierweiterungen sind ausgeblendet.", 64, "Information"
End If
End Sub
Sub MSG_SaveDword()
Dim lngDword As Long
lngDword = 1 ' 0 zum Anzeigen, 1 zum Ausblenden
Call SaveDword(HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "HideFileExt", lngDword)
End Sub
- Führe die Subroutine
MSG_SaveDword aus, um die Ordneroptionen zu ändern.
- Verwende
MSG_GetDWord, um den aktuellen Status zu überprüfen.
Häufige Fehler und Lösungen
Alternative Methoden
Wenn Du nicht mit VBA arbeiten möchtest, kannst Du die Ordneroptionen auch manuell ändern:
- Öffne den Windows Explorer.
- Klicke auf
Extras > Ordneroptionen.
- Gehe zum Tab
Ansicht und aktiviere oder deaktiviere die Option "Dateinamenerweiterungen für bekannte Dateitypen ausblenden".
Praktische Beispiele
Tipps für Profis
FAQ: Häufige Fragen
1. Kann ich den Code in einer anderen Excel-Version verwenden?
Ja, der VBA-Code sollte in den meisten Excel-Versionen funktionieren, solange die Windows-Registry gleich bleibt.
2. Was passiert, wenn ich die Registry falsch bearbeite?
Falsche Änderungen an der Registry können zu Systeminstabilitäten führen. Stelle sicher, dass Du eine Sicherungskopie machst, bevor Du Änderungen vornimmst.
