Excel active-x radio button blocking access to spreadsheet cells

Patrick_Intertek

New Member
Joined
Jun 29, 2017
Messages
1
I have active-x radio buttons which when they are clicked are preventing to access any excel cell. Cells are all accessible until one radio button is activated. The worksheet is unprotected.

Main sheet set-up code has nothing wrong, see below:

Public StrFileDir, StrFileName, StrFilePath As String
Public LogName, LogSPsw As String
Public Source, Destination As String
Public StrPictureFilePath, StrPictureFileName As String
Public FileSelected, SelectedFileName, FileName2Remove As String
Public EmailAddress, EmailMessage As String
Public Name, NameExtension As String
Public CurrentAddress As String
Public xFSO, xFolder, xFile As Object
Public CR_Num, InternalFlag, LastBackSlash As Integer
Public AuthorisationFlag, MapDriveFlag, EmailValidity As Boolean

Public Const CR_WaitApproval As String = "https://sharepoint.test.com/Network%20Test%20Folder/"
Public Const CR_Validated As String = "https://sharepoint.test.com/Document%20Request%20%20Validated/"
Public Const EmailAddressWaiting As String = "MdrRequest.WaitingApproval@sharepoint.test.com"
Public Const EmailAddressValidated As String = "MdrRequest.Validated@sharepoint.test.com"
Public Const DriveMapped As String = "X:" ' Set X:\ as working drive for data exchange

Option Explicit

Sub InitForm()
' Initialise working environment according form status
'
ActiveSheet.Range("A1").Select
ScreenDim
AuthorisationFlag = False
EmailValidity = False
ChDrive "C" ' Set C:\ as current working drive
StrFileName = ""
StrFileDir = "Temp"
StrFilePath = "C:"
MakeMyFolder StrFilePath, StrFileDir ' Create C:\Temp folder is not exist
Worksheets("Form").Select
InternalFlag = Range("A1").Value ' Read form status

Select Case InternalFlag ' Execute program according to form status
Case 0 ' Form initialised as new
UnProtectSheet
ActiveSheet.Range("D20:M34").Select
Selection.Locked = True
' ActiveSheet.OptionButton1.Value = False
' ActiveSheet.OptionButton2.Value = False
ProtectSheet
UnlockHeader
UnlockRequestor
ShowSaveButton
ActiveSheet.Range("A1").Select
ProtectSheet
Case 1
UnlockReview1 ' Form submitted by Requestor and received for 1st review
ShowSaveButton
Case 2
UnlockRequestor ' Form rejected by Reviewer 1
ShowSaveButton
CurrentAddress = "D18:H18"
DeleteSignature (CurrentAddress)
ActiveSheet.Range("K18").Value = ""
Case 3
UnlockAuthorisation ' Form accepted by Reviewer 1 or Reviewer 2, received for Authorisation
ShowSaveButton
Case 4
UnlockReview2 ' Form submited by Requestor and received for 2nd review
ShowSaveButton
Case 5, 6, 7
LockHeader ' Form rejected by Reviewer 2 or accepted or rejected by Authorisation
LockRequestor
LockReview1
LockReview2
LockAuthorisation
HideSaveButton
End Select
End Sub
'--------------------------------------------------------------------------

The radio button code are these ones:

Private Sub OptionButton1_Click()
If OptionButton1.Value = True Then OptionButton2.Value = False
End Sub

Private Sub OptionButton2_Click()
If OptionButton2.Value = True Then OptionButton1.Value = False
End Sub

They both refer to a cell used to switch the value in order to know if the status is Creation or Change.

What is wrong? I am expected something like a layer system involved with one layer for active-x different from the Excel spreadsheet layer and when the Active-X are activated, blocking access to the spreadsheet layer. Am I wrong?
Could you point me to the correct direction and let me know the solution?

Thank you
 

Excel Facts

What is the fastest way to copy a formula?
If A2:A50000 contain data. Enter a formula in B2. Select B2. Double-click the Fill Handle and Excel will shoot the formula down to B50000.

Forum statistics

Threads
1,213,552
Messages
6,114,278
Members
448,559
Latest member
MrPJ_Harper

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top