أخفاء وأظهار ملفات

[ابن الملك]

أساتذتنا الكرام فى أوفيسنا ♥

 

عندى سؤال جديد هو فى طريقة مثلا على الا كسيل للتحكم بأخفاء وأظهار الملفات و تغيير خصائص ملف مثلا يبقى " قرأءة فقط " أو " مخفى " الخ ......

انا لقيت كود بس كل ما أنسخة على الاكسيل مش بيشتغل 

 

هو دة الكود 

كود تفعيل إظهار الملفات المخفية أو Hidden Files :

Dim lResult 
Private Sub Command1_Click ()
lResult = RegCreateKey(HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", hKeyHandle)
lResult = RegSetValueEx(hKeyHandle, "Hidden", 0&, REG_DWORD, 1, 4)
lResult = RegCloseKey(hKeyHandle)
Label1.Caption = "Last Action : Show Hidden Folders Enabled"
End Sub


أما كود التعطيل لإظهار الملفات المخفية أو Hidden Files :

Dim lResult 
Private Sub Command1_Click ()
lResult = RegCreateKey(HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", hKeyHandle)
lResult = RegSetValueEx(hKeyHandle, "Hidden", 0&, REG_DWORD, 2, 4)
lResult = RegCloseKey(hKeyHandle)
Label1.Caption = "Last Action : Show Hidden Folders Disabled"
End Sub

وشكرا 

[ابن الملك]

up

[ابن الملك]

UP