kelvin đã viết:
Ah... Cái này chỉ khóa 1 key thôi, không khóa nguyên Registry!
Trong VBA ta có thể ghi, thay đổi các key của Reg,.Mình khg dùng cái nầy nên quên rồi, bạn chịu khó google vậy
Đồng ý! Nhưng để mở mở key đã bị khóa thì tôi thật sự không biết làm cách nào!
Khóa, không cho mở reg thì mình có hiểu, còn "key đã bị khóa " là sao, bạn nói rõ hơn 1 chút dược khg?
Mở Registry lên, Click phải vào 1 key nào đó, chọn Permissions... Ở đây bạn có thể phân quyền cho ai làm gì và cấm ai làm gì trên key của bạn!
Mấy cái nầy thì mình không biết rồi, mình chỉ biết với Excel hiện nay đã tích hợp VB6 vào VBA, do đó cái gì VB6 làm được thì Excel VBA sẽ làm được
Sub ShMacro()
Dim Sh As Worksheet
Dim Temp As String, i As Byte
For Each Sh In ActiveWorkbook.Sheets
If CheckShMacro(Sh.Name) = True Then
Temp = Temp & Chr(13) & " - " & Sh.Name
Sh.Visible = xlSheetVisible
i = i + 1
End If
Next
If Temp = "" Then
MsgBox "Xin Chuc Mung !!!" & Chr(13) & "Khong Co Macro Sheet 4 nao!!!", vbInformation, "MrOkebab"
Else
MsgBox "Co " & i & " Macro Sheet : " & Chr(13) & Temp, vbInformation, "MrOkebab"
End If
End SubFunction CheckShMacro(ShStr As String) As Boolean
Dim Sh As Worksheet
For Each Sh In ActiveWorkbook.Worksheets
If Sh.Name = ShStr Then
Exit Function
End If
Next
CheckShMacro = True
End FunctionOption Explicit
'http://www.eggheadcafe.com/forumarchives/Excelprogramming/Sep2005/post24278050.asp
Sub AAA()
Dim s As Object
For Each s In ThisWorkbook.Sheets
s.Visible = True
Next s
End Sub
Private Sub ShowExcel4MacroSheets()
Dim i As Long
For i = 1 To Application.Excel4MacroSheets.Count
Application.Excel4MacroSheets(i).Visible = True
Next i
For i = 1 To Application.Excel4IntlMacroSheets.Count
Application.Excel4IntlMacroSheets(i).Visible = True
Next i
End Sub
