Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Option button
Hi All, I am trying to amend a macro originally written by a person I'm no longer in touch with. One of the worksheets contain grouped option boxes which have been assigned macros. I can successfully amend the macros, but I am not able to amend the option boxes. I am not able to highlight these boxes , even when I click on 'design' button on the controlbox toolbox, or right click on the boxes In addition all the button's on this worksheet form toolbox are disabled except the toggle grid button. They are however, enabled on other sheets of the workbooks expect the sheet that contain the option boxes. There are a number of boxes on the sheet and I would like to delete a few and update some as well. Can anyone help? -- Grant90 ------------------------------------------------------------------------ Grant90's Profile: http://www.excelforum.com/member.php...o&userid=25684 View this thread: http://www.excelforum.com/showthread...hreadid=391028 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Option button
It is quite likely that your worksheet is protected.
If you dont remember the password you could use the following sub. I found the code in this group. I dont remember the author. 'Breaks worksheet password protection. '@arg sht - The sheet whose password needs to be broken Function PasswordBreaker(sht As Worksheet) If sht Is Nothing Then Err.Raise 5000, "OtherUtils.PasswordBreaker", "Invalid arg" End If Dim i As Integer, j As Integer, k As Integer Dim l As Integer, m As Integer, n As Integer Dim i1 As Integer, i2 As Integer, i3 As Integer Dim i4 As Integer, i5 As Integer, i6 As Integer On Error Resume Next For i = 65 To 66: For j = 65 To 66: For k = 65 To 66 For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66 For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66 For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126 sht.Unprotect Chr(i) & Chr(j) & Chr(k) & _ Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _ Chr(i4) & Chr(i5) & Chr(i6) & Chr(n) If sht.ProtectContents = False Then MsgBox "One usable password is " & Chr(i) & Chr(j) & _ Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _ Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n) Exit Function End If Next: Next: Next: Next: Next: Next Next: Next: Next: Next: Next: Next Dim str As String End Function HTH, Jayant |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Option button | New Users to Excel | |||
keep source formatting is not an option in paste option button | Excel Discussion (Misc queries) | |||
Option Button Help | Excel Worksheet Functions | |||
Option Button | Excel Discussion (Misc queries) | |||
VBA - Option Button | Excel Programming |