Excel active-x radio button blocking access to spreadsheet cells

[Patrick_Intertek]

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