có hàm nào bên VBA để mình khóa ribbon đã làm ko

Chào bạn bạn có cần điều kiện để khoá không? còn bạn không để chức năng trong đó thì sẽ không cần khoá, hay nói cách đơn giản là bạn không bắt sự kiện on... thì ribon sẽ bị khoá chức năng đó.

Mình có điều kiện ví dụ cho dòng lệnh inputbox để nhập vào 1 câu nếu câu đó ko đúng mình quy định thì khóa ribbon.Thầy cho mình xin câu lệnh cụ thể được không vậy.

chào bạn bạn phải gắn ra 1 sheets rồi if điều kiện đó nếu đúng thì dẫn nút bấm hay sự kiện cho ribon không thì có thể chuyển nút sang trạng thái không có gì.

Mình muốn xin ví dụ 1 đoạn code để 1 ribbon ví dụ tên là ribbon1 chuyển sang trạng thái không có gì đó thầy.

Chào bạn đây là một dạng bạn nhé:

Sub FCC(control As IRibbonControl)
    If TH.Range("D1").Value = "X" Then
        MsgBoxUni CHUYENMA("Vui lofng ddawng nhaajp vowsi quyeenf nhaajp vaf moji quyefn")
    ElseIf TH.Range("D1").Value = "N" Then
         BCC.Activate
    Else
         BCC.Activate
    End If
     anview Range("a4:z4")
    Application.StatusBar = CHUYENMA("Bajn ddang lafm vieejc owr barng chaasm coong")
End Sub

sao cả 2 deu activate vậy thầy

chào bạn với D1 = "X" mình đưa ra thoong báo, còn các quyền khác mình vẫn cho vào.

BCC la ten ribbon hay ten id cua ribbon hay ten tag cua ribbon vay thay

BCC là tên một sheets bạn

Ví dụ mình có 1 ribbon id là ribbon1 tag là ribbon_tag. Nếu Ô A1.value = "F" thì actice ribbon1 còn không thì ẩn ribbon1 mình dùng code như thế nào vậy thầy

Chào bạn chỉ có thể để ribon đó và khong làm gì thôi bạn nhé.

sao khi mình gán địa chỉ là ổ C thì nó báo lỗi còn ổ D thì nó tạo binh thuong vay thay, co cach nao gán vô ổ C duoc ko thây

Chào bạn bạn thử check file trước nhé xem có file trong ổ c không?

Option Explicit
Sub CheckFileExists()
Dim strFileName As String
Dim strFileExists As String
    strFileName = "C:\text"
    strFileExists = Dir(strFileName)
   If strFileExists = "" Then
        MsgBox "The selected file doesn't exist"
    Else
        MsgBox "The selected file exists"
    End If
End Sub

chương trình này nó tạo file mới mà thầy

mà mình xin đoạn code đọc dữ liệu file txt để dán vô ô A1 luôn duoc không thầy

Public Const UTF_8_ENCODING = "UTF-8"
Sub readFileExample1()
    Dim fileName As String
    Dim content As String
    fileName = "C:\TuanBa\NewTextDocument.txt"
    content = readFile(fileName, UTF_8_ENCODING)
    Cells(1, "A").Value = content
End Sub
Function readFile(fileName As String, charSet As String) As String
    Dim objStream As Object
    Set objStream = CreateObject("ADODB.Stream")
     
    objStream.charSet = charSet
    objStream.Open
     
    objStream.LoadFromFile (fileName)
    readFile = objStream.ReadText()
     
    Set objStream = Nothing
End Function

Cam on thầy

Cảm ơn bạn, chúc bạn học tốt

mình muốn làm tính năng đó là nếu ô A1 = T thì ẩn Tab id ="Toan_9" thì mình làm như thế nào vậy thầy