turn off show input message when selected for entire workbook

[selkov]

I have been given about two dozen workbooks to work on. Every cell has a pop up input message regarding the information you are to input there. It is done via the data validation process via "Show Input Message When Cell Is Selected". It is a great idea for the person who is inputting information but when trying to update formulas---wow it is annoying.
I can turn the function off cell by cell or even a small range of cells but if I choose the entire workbook I am given only the option to delete the validation. And that will not do.

I need to be able to disable the validation across the entire worksheet and then after I am done re-enable it.
I have googled and searched this forum for inspiration but found nothing that helps me.

Can this be done?
Can anyone help me out?

Thanks in advance for your help.
EDS.

 

[selkov]

This is what I have so far. It works as long as the range is all in one row but when it spans more than 1 row it does not:

Sub Message_Valaidation()
'
' Macro3 Macro
'
Dim Rng As Range
On Error Resume Next
Err.Clear
Application.EnableEvents = False
For Each Rng In Selection
With Selection.Validation
.ShowInput = False
End With
Next Rng
Application.EnableEvents = True
End Sub

 

[Tetra201]

For the entire sheet, try:

Sub Message_Valaidation()
Application.EnableEvents = False
Cells.Validation.ShowInput = False
Application.EnableEvents = True
End Sub

 

[Snakehips]

This should do it...

Sub ToggleDVShow()


    On Error Resume Next
      ActiveCell.SpecialCells(xlCellTypeAllValidation).Select
        
            For Each cell In Selection
            cell.Validation.ShowInput = Not cell.Validation.ShowInput
           Next cell
    
End Sub

Hope that helps.

 

[selkov]

Thanks guys